/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / MacTechNotes / Platforms & Tools / Stand-Alone Code.sit / SAGlobalsƒ / SAGlobals.h

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 53 41 47 6c 6f 62 | 61 6c 73 2e 68 00 00 00 |..SAGlob|als.h...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 08 1e 00 | 00 01 7e a2 c6 ca b8 a2 |........|..~.....|
|00000060| c6 ca b8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ae 5d 00 00 |........|.....]..|
|00000080| 0d 2f 2a 20 53 74 61 6e | 64 2d 61 6c 6f 6e 65 20 |./* Stan|d-alone |
|00000090| 63 6f 64 65 20 6d 6f 64 | 75 6c 65 73 20 77 68 69 |code mod|ules whi|
|000000a0| 63 68 20 6e 65 65 64 20 | 74 6f 20 75 73 65 20 67 |ch need |to use g|
|000000b0| 6c 6f 62 61 6c 20 76 61 | 72 69 61 62 6c 65 73 0d |lobal va|riables.|
|000000c0| 20 20 20 6d 61 79 20 69 | 6e 63 6c 75 64 65 20 74 |   may i|nclude t|
|000000d0| 68 65 20 69 6e 74 65 72 | 66 61 63 65 73 20 69 6e |he inter|faces in|
|000000e0| 20 74 68 69 73 20 75 6e | 69 74 2e 20 53 75 63 68 | this un|it. Such|
|000000f0| 20 63 6f 64 65 20 6d 6f | 64 75 6c 65 73 0d 20 20 | code mo|dules.  |
|00000100| 20 6d 75 73 74 20 61 6c | 73 6f 20 62 65 20 6c 69 | must al|so be li|
|00000110| 6e 6b 65 64 20 77 69 74 | 68 20 52 75 6e 74 69 6d |nked wit|h Runtim|
|00000120| 65 2e 6f 20 61 6e 64 20 | 53 41 47 6c 6f 62 61 6c |e.o and |SAGlobal|
|00000130| 73 2e 6f 2e 20 2a 2f 0d | 0d 23 69 6e 63 6c 75 64 |s.o. */.|.#includ|
|00000140| 65 20 3c 54 79 70 65 73 | 2e 68 3e 0d 74 79 70 65 |e <Types|.h>.type|
|00000150| 64 65 66 20 48 61 6e 64 | 6c 65 20 41 35 52 65 66 |def Hand|le A5Ref|
|00000160| 54 79 70 65 3b 0d 0d 0d | 2f 2a 20 4d 61 6b 65 41 |Type;...|/* MakeA|
|00000170| 35 57 6f 72 6c 64 20 61 | 6c 6c 6f 63 61 74 65 73 |5World a|llocates|
|00000180| 20 73 70 61 63 65 20 66 | 6f 72 20 61 6e 20 41 35 | space f|or an A5|
|00000190| 20 77 6f 72 6c 64 20 62 | 61 73 65 64 20 6f 6e 20 | world b|ased on |
|000001a0| 74 68 65 0d 20 20 73 69 | 7a 65 20 6f 66 20 74 68 |the.  si|ze of th|
|000001b0| 65 20 67 6c 6f 62 61 6c | 20 76 61 72 69 61 62 6c |e global| variabl|
|000001c0| 65 73 20 64 65 66 69 6e | 65 64 20 62 79 20 74 68 |es defin|ed by th|
|000001d0| 65 20 6d 6f 64 75 6c 65 | 20 61 6e 64 20 69 74 73 |e module| and its|
|000001e0| 0d 20 20 75 6e 69 74 73 | 2e 20 49 66 20 73 75 66 |.  units|. If suf|
|000001f0| 66 69 63 69 65 6e 74 20 | 73 70 61 63 65 20 69 73 |ficient |space is|
|00000200| 20 6e 6f 74 20 61 76 61 | 69 6c 61 62 6c 65 2c 20 | not ava|ilable, |
|00000210| 4d 61 6b 65 41 35 57 6f | 72 6c 64 0d 20 20 72 65 |MakeA5Wo|rld.  re|
|00000220| 74 75 72 6e 73 20 4e 49 | 4c 20 66 6f 72 20 41 35 |turns NI|L for A5|
|00000230| 52 65 66 20 61 6e 64 20 | 66 75 72 74 68 65 72 20 |Ref and |further |
|00000240| 69 6e 69 74 69 61 6c 69 | 7a 61 74 69 6f 6e 20 69 |initiali|zation i|
|00000250| 73 20 61 62 6f 72 74 65 | 64 2e 20 2a 2f 0d 70 61 |s aborte|d. */.pa|
|00000260| 73 63 61 6c 20 76 6f 69 | 64 20 4d 61 6b 65 41 35 |scal voi|d MakeA5|
|00000270| 57 6f 72 6c 64 20 28 41 | 35 52 65 66 54 79 70 65 |World (A|5RefType|
|00000280| 20 2a 41 35 52 65 66 29 | 3b 0d 0d 0d 2f 2a 20 53 | *A5Ref)|;.../* S|
|00000290| 65 74 41 35 57 6f 72 6c | 64 20 6c 6f 63 6b 73 20 |etA5Worl|d locks |
|000002a0| 64 6f 77 6e 20 61 20 70 | 72 65 76 69 6f 75 73 6c |down a p|reviousl|
|000002b0| 79 2d 61 6c 6c 6f 63 61 | 74 65 64 20 68 61 6e 64 |y-alloca|ted hand|
|000002c0| 6c 65 20 63 6f 6e 74 61 | 69 6e 69 6e 67 0d 20 20 |le conta|ining.  |
|000002d0| 20 61 6e 20 41 35 20 77 | 6f 72 6c 64 20 61 6e 64 | an A5 w|orld and|
|000002e0| 20 73 65 74 73 20 74 68 | 65 20 41 35 20 72 65 67 | sets th|e A5 reg|
|000002f0| 69 73 74 65 72 20 61 70 | 70 72 6f 70 72 69 61 74 |ister ap|propriat|
|00000300| 65 6c 79 2e 20 54 68 65 | 20 72 65 74 75 72 6e 0d |ely. The| return.|
|00000310| 20 20 20 76 61 6c 75 65 | 20 69 73 20 74 68 65 20 |   value| is the |
|00000320| 6f 6c 64 20 76 61 6c 75 | 65 20 6f 66 20 41 35 20 |old valu|e of A5 |
|00000330| 61 6e 64 20 74 68 65 20 | 63 6c 69 65 6e 74 20 73 |and the |client s|
|00000340| 68 6f 75 6c 64 20 73 61 | 76 65 20 69 74 20 66 6f |hould sa|ve it fo|
|00000350| 72 0d 20 20 20 75 73 65 | 20 62 79 20 52 65 73 74 |r.   use| by Rest|
|00000360| 6f 72 65 41 35 57 6f 72 | 6c 64 2e 20 2a 2f 0d 70 |oreA5Wor|ld. */.p|
|00000370| 61 73 63 61 6c 20 6c 6f | 6e 67 20 53 65 74 41 35 |ascal lo|ng SetA5|
|00000380| 57 6f 72 6c 64 20 28 41 | 35 52 65 66 54 79 70 65 |World (A|5RefType|
|00000390| 20 41 35 52 65 66 29 3b | 0d 0d 2f 2a 20 52 65 73 | A5Ref);|../* Res|
|000003a0| 74 6f 72 65 41 35 57 6f | 72 6c 64 20 72 65 73 74 |toreA5Wo|rld rest|
|000003b0| 6f 72 65 73 20 41 35 20 | 74 6f 20 69 74 73 20 6f |ores A5 |to its o|
|000003c0| 72 69 67 69 6e 61 6c 20 | 76 61 6c 75 65 20 28 77 |riginal |value (w|
|000003d0| 68 69 63 68 20 74 68 65 | 0d 20 20 20 63 6c 69 65 |hich the|.   clie|
|000003e0| 6e 74 20 73 68 6f 75 6c | 64 20 68 61 76 65 20 73 |nt shoul|d have s|
|000003f0| 61 76 65 64 29 20 61 6e | 64 20 75 6e 6c 6f 63 6b |aved) an|d unlock|
|00000400| 73 20 74 68 65 20 41 35 | 20 77 6f 72 6c 64 20 74 |s the A5| world t|
|00000410| 6f 20 61 76 6f 69 64 0d | 20 20 20 68 65 61 70 20 |o avoid.|   heap |
|00000420| 66 72 61 67 6d 65 6e 74 | 61 74 69 6f 6e 20 69 6e |fragment|ation in|
|00000430| 20 63 61 73 65 73 20 77 | 68 65 72 65 20 74 68 65 | cases w|here the|
|00000440| 20 77 6f 72 6c 64 20 69 | 73 20 75 73 65 64 20 61 | world i|s used a|
|00000450| 67 61 69 6e 2e 20 2a 2f | 0d 70 61 73 63 61 6c 20 |gain. */|.pascal |
|00000460| 76 6f 69 64 20 52 65 73 | 74 6f 72 65 41 35 57 6f |void Res|toreA5Wo|
|00000470| 72 6c 64 20 28 6c 6f 6e | 67 20 6f 6c 64 41 35 2c |rld (lon|g oldA5,|
|00000480| 20 41 35 52 65 66 54 79 | 70 65 20 41 35 52 65 66 | A5RefTy|pe A5Ref|
|00000490| 29 3b 0d 0d 2f 2a 20 44 | 69 73 70 6f 73 65 41 35 |);../* D|isposeA5|
|000004a0| 57 6f 72 6c 64 20 73 69 | 6d 70 6c 79 20 64 69 73 |World si|mply dis|
|000004b0| 70 6f 73 65 73 20 6f 66 | 20 74 68 65 20 41 35 20 |poses of| the A5 |
|000004c0| 77 6f 72 6c 64 20 68 61 | 6e 64 6c 65 2e 20 2a 2f |world ha|ndle. */|
|000004d0| 0d 70 61 73 63 61 6c 20 | 76 6f 69 64 20 44 69 73 |.pascal |void Dis|
|000004e0| 70 6f 73 65 41 35 57 6f | 72 6c 64 20 28 41 35 52 |poseA5Wo|rld (A5R|
|000004f0| 65 66 54 79 70 65 20 41 | 35 52 65 66 29 3b 0d 0d |efType A|5Ref);..|
|00000500| 2f 2a 20 4f 70 65 6e 41 | 35 57 6f 72 6c 64 20 63 |/* OpenA|5World c|
|00000510| 6f 6d 62 69 6e 65 73 20 | 4d 61 6b 65 41 35 57 6f |ombines |MakeA5Wo|
|00000520| 72 6c 64 20 61 6e 64 20 | 53 65 74 41 35 57 6f 72 |rld and |SetA5Wor|
|00000530| 6c 64 20 66 6f 72 20 74 | 68 65 20 6d 61 6a 6f 72 |ld for t|he major|
|00000540| 69 74 79 0d 20 20 20 6f | 66 20 63 61 73 65 73 20 |ity.   o|f cases |
|00000550| 69 6e 20 77 68 69 63 68 | 20 74 68 65 73 65 20 74 |in which| these t|
|00000560| 77 6f 20 72 6f 75 74 69 | 6e 65 73 20 61 72 65 20 |wo routi|nes are |
|00000570| 63 61 6c 6c 65 64 20 63 | 6f 6e 73 65 63 75 74 69 |called c|onsecuti|
|00000580| 76 65 6c 79 2e 20 41 6e | 0d 20 20 20 65 78 63 65 |vely. An|.   exce|
|00000590| 70 74 69 6f 6e 20 69 73 | 20 77 68 65 6e 20 61 20 |ption is| when a |
|000005a0| 73 69 6e 67 6c 65 20 41 | 35 20 77 6f 72 6c 64 20 |single A|5 world |
|000005b0| 69 73 20 69 6e 76 6f 6b | 65 64 20 6d 61 6e 79 20 |is invok|ed many |
|000005c0| 74 69 6d 65 73 2e 20 49 | 6e 20 74 68 69 73 0d 20 |times. I|n this. |
|000005d0| 20 20 63 61 73 65 2c 20 | 74 68 65 20 77 6f 72 6c |  case, |the worl|
|000005e0| 64 20 69 73 20 6f 6e 6c | 79 20 63 72 65 61 74 65 |d is onl|y create|
|000005f0| 64 20 6f 6e 63 65 20 77 | 69 74 68 20 4d 61 6b 65 |d once w|ith Make|
|00000600| 41 35 57 6f 72 6c 64 20 | 61 6e 64 20 69 74 20 69 |A5World |and it i|
|00000610| 73 0d 20 20 20 69 6e 76 | 6f 6b 65 64 20 65 61 63 |s.   inv|oked eac|
|00000620| 68 20 74 69 6d 65 20 62 | 79 20 53 65 74 41 35 57 |h time b|y SetA5W|
|00000630| 6f 72 6c 64 2e 20 4d 6f | 73 74 20 64 65 76 65 6c |orld. Mo|st devel|
|00000640| 6f 70 65 72 73 20 77 69 | 6c 6c 20 66 69 6e 64 20 |opers wi|ll find |
|00000650| 69 74 20 65 61 73 69 65 | 72 0d 20 20 20 6a 75 73 |it easie|r.   jus|
|00000660| 74 20 74 6f 20 63 61 6c | 6c 20 4f 70 65 6e 41 35 |t to cal|l OpenA5|
|00000670| 57 6f 72 6c 64 20 61 6e | 64 20 43 6c 6f 73 65 41 |World an|d CloseA|
|00000680| 35 57 6f 72 6c 64 20 61 | 74 20 74 68 65 20 65 6e |5World a|t the en|
|00000690| 64 2e 20 49 66 20 74 68 | 65 20 6d 65 6d 6f 72 79 |d. If th|e memory|
|000006a0| 0d 20 20 20 61 6c 6c 6f | 63 61 74 69 6f 6e 20 72 |.   allo|cation r|
|000006b0| 65 71 75 65 73 74 20 66 | 61 69 6c 73 2c 20 4f 70 |equest f|ails, Op|
|000006c0| 65 6e 41 35 57 6f 72 6c | 64 20 72 65 74 75 72 6e |enA5Worl|d return|
|000006d0| 73 20 4e 49 4c 20 66 6f | 72 20 41 35 52 65 66 20 |s NIL fo|r A5Ref |
|000006e0| 61 6e 64 20 7a 65 72 6f | 0d 20 20 20 69 6e 20 74 |and zero|.   in t|
|000006f0| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 72 65 73 75 |he funct|ion resu|
|00000700| 6c 74 2e 20 2a 2f 0d 70 | 61 73 63 61 6c 20 6c 6f |lt. */.p|ascal lo|
|00000710| 6e 67 20 4f 70 65 6e 41 | 35 57 6f 72 6c 64 20 28 |ng OpenA|5World (|
|00000720| 41 35 52 65 66 54 79 70 | 65 20 2a 41 35 52 65 66 |A5RefTyp|e *A5Ref|
|00000730| 29 3b 0d 0d 2f 2a 20 43 | 6c 6f 73 65 41 35 57 6f |);../* C|loseA5Wo|
|00000740| 72 6c 64 20 69 73 20 74 | 68 65 20 64 75 61 6c 20 |rld is t|he dual |
|00000750| 6f 66 20 4f 70 65 6e 41 | 35 57 6f 72 6c 64 2e 20 |of OpenA|5World. |
|00000760| 49 74 20 63 6f 6d 62 69 | 6e 65 73 20 52 65 73 74 |It combi|nes Rest|
|00000770| 6f 72 65 41 35 57 6f 72 | 6c 64 0d 20 20 20 61 6e |oreA5Wor|ld.   an|
|00000780| 64 20 44 69 73 70 6f 73 | 65 41 35 57 6f 72 6c 64 |d Dispos|eA5World|
|00000790| 2e 20 41 67 61 69 6e 2c | 20 69 6e 20 63 65 72 74 |. Again,| in cert|
|000007a0| 61 69 6e 20 63 61 73 65 | 73 20 69 74 20 6d 61 79 |ain case|s it may|
|000007b0| 20 62 65 20 6e 65 63 65 | 73 73 61 72 79 20 74 6f | be nece|ssary to|
|000007c0| 0d 20 20 20 63 61 6c 6c | 20 74 68 6f 73 65 20 74 |.   call| those t|
|000007d0| 77 6f 20 72 6f 75 74 69 | 6e 65 73 20 65 78 70 6c |wo routi|nes expl|
|000007e0| 69 63 69 74 6c 79 2c 20 | 62 75 74 20 6d 6f 73 74 |icitly, |but most|
|000007f0| 20 6f 66 20 74 68 65 20 | 74 69 6d 65 20 43 6c 6f | of the |time Clo|
|00000800| 73 65 41 35 57 6f 72 6c | 64 0d 20 20 20 69 73 20 |seA5Worl|d.   is |
|00000810| 61 6c 6c 20 74 68 61 74 | 20 69 73 20 72 65 71 75 |all that| is requ|
|00000820| 69 72 65 64 2e 20 2a 2f | 0d 70 61 73 63 61 6c 20 |ired. */|.pascal |
|00000830| 76 6f 69 64 20 43 6c 6f | 73 65 41 35 57 6f 72 6c |void Clo|seA5Worl|
|00000840| 64 20 28 6c 6f 6e 67 20 | 6f 6c 64 41 35 2c 20 41 |d (long |oldA5, A|
|00000850| 35 52 65 66 54 79 70 65 | 20 41 35 52 65 66 29 3b |5RefType| A5Ref);|
|00000860| 0d 0d 0d 23 69 66 20 64 | 65 66 69 6e 65 64 09 28 |...#if d|efined.(|
|00000870| 42 75 69 6c 64 4c 69 62 | 29 0d 09 23 69 6e 63 6c |BuildLib|)..#incl|
|00000880| 75 64 65 20 22 53 41 47 | 6c 6f 62 61 6c 73 2e 69 |ude "SAG|lobals.i|
|00000890| 6e 63 31 2e 63 22 0d 23 | 65 6e 64 69 66 0d 00 00 |nc1.c".#|endif...|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000910| 00 00 0a 1f 00 4c 03 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00000920| 00 00 0a 19 0a 4c 61 7a | 79 50 61 73 73 20 c4 00 |.....Laz|yPass ..|
|00000930| 0b 53 41 47 6c 6f 62 61 | 6c 73 2e 68 02 00 00 00 |.SAGloba|ls.h....|
|00000940| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|00000950| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 a9 7f fe 9d 00 00 | 00 00 00 00 01 7e 06 00 |........|.....~..|
|00000980| a2 a7 d5 0c a2 b1 2f d5 | 00 00 00 00 00 00 00 00 |....../.|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 61 43 00 01 00 00 |........|..aC....|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 0e 00 00 00 |........|........|
|000009c0| 0a 1f 08 4c 61 7a 79 50 | 61 73 73 7a 02 00 00 00 |...LazyP|assz....|
|000009d0| 72 73 72 63 52 53 45 44 | 01 00 00 00 00 c0 00 00 |rsrcRSED|........|
|000009e0| 00 00 0a 2d 00 00 00 00 | 00 00 00 00 00 00 00 00 |...-....|........|
|000009f0| 00 00 05 0d 00 00 06 00 | a2 a7 d5 0c a2 b1 2f d5 |........|....../.|
|00000a00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 61 6e 64 |...H..Mo|naco.and|
|00000a10| 6c 65 20 41 35 52 65 66 | 54 79 70 65 3b 0d 0d 70 |le A5Ref|Type;..p|
|00000a20| 61 73 63 61 6c 20 00 06 | 00 04 00 50 00 20 01 dd |ascal ..|...P. ..|
|00000a30| 02 3d 00 50 00 20 01 dd | 02 3d a2 c6 76 58 00 00 |.=.P. ..|.=..vX..|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000a50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 5b 6c 70 |...L...L|...2.[lp|
|00000a60| 04 c8 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000a70| 00 0a 03 ed ff ff 00 00 | 00 00 00 5d 13 1c 00 00 |........|...]....|
+--------+-------------------------+-------------------------+--------+--------+